﻿Imports DAO
Imports DTO

Public Class MonHocBUS

    Public Function LayBang() As DataTable
        Dim dt As New DataTable
        Dim mhDAO As New MonHocDAO
        dt = mhDAO.LayBang
        Return dt
    End Function

    Public Function LaySoLuongMonHoc() As Integer
        Dim dao As New MonHocDAO
        Return dao.LaySoLuongMonHoc()
    End Function

    Public Function LayDanhSach() As List(Of MonHocDTO)
        Dim mhDAO As New MonHocDAO
        Return mhDAO.LayDanhSach()
    End Function


    Public Function ThemMonHoc(ByVal mhDTO As MonHocDTO) As Integer
        Dim mhDAO As New MonHocDAO()
        Return mhDAO.ThemMonHoc(mhDTO)
    End Function

    Public Function XoaMonHoc(ByVal mhDTO As MonHocDTO) As Integer
        Dim mhDAO As New MonHocDAO()
        Return mhDAO.XoaMonHoc(mhDTO)
    End Function

    Public Function CapNhatMonHoc(ByVal mhDTO As MonHocDTO) As Integer
        Dim mhDAO As New MonHocDAO()
        Return mhDAO.CapNhatMonHoc(mhDTO)
    End Function

End Class
